home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / comm / cuos204.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-11-16  |  2KB  |  73 lines
  1. /*
  2.  
  3.   Installation script for CU_SeeMe/2 Beta 1.0
  4.  
  5.   Creates folder and various other objects
  6.  
  7. */
  8.  
  9. Call Init
  10.  
  11. say 'Welcome to CU-SeeMe/2 Beta 1.0'
  12. say ''
  13.  
  14. /*
  15.  
  16.   if this is an update to an already existing installation
  17.   then we do not want to overwrite the reflist.ini
  18.  
  19. */
  20.  
  21. if stream('reflist.ini','c','query exists') = "" then
  22.   'copy reflist.nin reflist.ini'
  23.  
  24. say 'please wait while I create WPS objects'
  25.  
  26. dir = directory()
  27.  
  28. id = dir"\readme.now"
  29. exename = dir'\CUSEEME2.EXE'
  30. exename2 = dir'\CUVID2.EXE'
  31.  
  32.  
  33. call CreateObjects
  34. call SysOpenObject "<CUSEEME2_FLDR>","DEFAULT","TRUE"
  35.  
  36. return
  37.  
  38. CreateObjects:
  39.  
  40.     If  SysCreateObject("WPFolder","CU-SeeMe/2 Beta 1.0 for Os/2 ","<WP_DESKTOP>","OBJECTID=<CUSEEME2_FLDR>") then
  41.     do
  42.           If SysCreateObject("WPProgram", "CU-SeeMe/2", "<CUSEEME2_FLDR>","EXENAME="exename";STARTUPDIR="dir";PROGTYPE=PM")  Then
  43.           do
  44.             If SysCreateObject("WPProgram", "CUVid/2", "<CUSEEME2_FLDR>","EXENAME="exename2";STARTUPDIR="dir";PROGTYPE=PM")  Then
  45.             do
  46.                Say 'Folder and program objects have been created'
  47.                call  SysCreateObject "WPShadow", "READ.ME", "<CUSEEME2_FLDR>","SHADOWID="id
  48.              end
  49.           end
  50.           Else
  51.              Say 'Could not create program object'
  52.     End
  53.     Else
  54.        Say 'Could not create folder '
  55.  
  56.  
  57. return
  58.  
  59.  
  60. Init :
  61.  
  62.   call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  63.   call SysLoadFuncs
  64.  
  65.   /* trace ?r' */
  66. return
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.